home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / HELLO 2.bas < prev    next >
BASIC Source File  |  2000-01-01  |  3KB  |  58 lines
  1. 50  REM THIS PROGRAM WILL LOAD FLEX TYPE BELOW HI-RES PAGE 1 AT 2048 ($800)
  2. 60 PG = 2: REM SAVE HI-RES 1 & 2
  3. 100 CS$(1) = "ASCII.70"
  4. 110 CS$(2) = "ASCII.56"
  5. 120 CS$(3) = "ASCII.40"
  6. 130 CS$(4) = ""
  7. 140 CS$(5) = ""
  8. 150 CS$(6) = ""
  9. 160 CS$(7) = ""
  10. 170 CS$(8) = ""
  11. 180 CS$(9) = ""
  12. 190  FOR I = 1 TO 9: IF  LEN(CS$(I))  THEN NCS = NCS +1: NEXT 
  13. 200  TEXT : HOME : PRINT  CHR$(4)"NOMONICO"
  14. 205  FOR I = 768 TO 856: READ V: POKE I,V: NEXT : CALL 768
  15. 210  PRINT "<CTRL-M>FLEX TYPE   V2.1B              11/15/84<CTRL-M>70/56/40/20 COLUMN<CTRL-M>HI-RES TEXT UTILITY<CTRL-M>BY  MARK S. SIMONSEN<CTRL-M>(C) 1982  BEAGLE BROS<CTRL-M><CTRL-M>"
  16. 220  IF  PEEK(104) < >(PG +1) *32  OR  PEEK((PG +1) *8192) < >0  THEN  POKE 104,(PG +1) *32: POKE (PG +1) *8192,0: PRINT  CHR$(4)"RUN HELLO 2"
  17. 230 B = 2048
  18. 240  PRINT "LOADING: FLEX TYPE"
  19. 250  PRINT  CHR$(4)"BLOAD FLEX TYPE,A"B
  20. 260 C =  INT(B/256):D = B -(C *256)
  21. 270 A = B +2048
  22. 280  FOR I = 1 TO NCS
  23. 290  PRINT  TAB( 10)"CHARACTER SET "I
  24. 300  PRINT  CHR$(4)"BLOAD "CS$(I)",A"A +((I -1) *768)
  25. 310 TYPE = 1
  26. 320  IF  RIGHT$(CS$(I),3) = ".70"  THEN TYPE = 3
  27. 330  IF  RIGHT$(CS$(I),3) = ".56"  THEN TYPE = 2
  28. 340  POKE (A -10) +I,TYPE
  29. 350  NEXT I
  30. 360  POKE A -10,NCS
  31. 370  POKE A -11,32: REM DISPLAY HI-RES PAGE 1
  32. 380  POKE 973,76: POKE 974,D: POKE 975,C
  33. 390  IF  PEEK(1014) = 88  AND  PEEK(1015) = 255  THEN  POKE 1014,D: POKE 1015,C
  34. 400  IF  PEEK(978) >189  THEN  POKE B +205,10: REM DM FIX
  35. 410  CALL B: HOME 
  36. 420  REM *****************************************************
  37. 430  PRINT  CHR$(4)"BLOAD LOGO.PIC,A$4000"
  38. 440 T70$ =  CHR$(20) +"1"
  39. 450 T56$ =  CHR$(20) +"2"
  40. 460 T40$ =  CHR$(20) +"3"
  41. 470 WIDE$ =  CHR$(23)
  42. 480  HCOLOR= 3: HPLOT 0,0 TO 279,0: HPLOT  TO 279,182
  43. 490  HPLOT  TO 0,182: HPLOT  TO 0,0
  44. 500  PRINT T40$;WIDE$;: VTAB 2: HTAB 6: PRINT "FLEX TYPE"
  45. 510  PRINT WIDE$;: HTAB 15: PRINT "FLEX  TYPE"
  46. 520  PRINT T56$;: HTAB 23: PRINT "FLEX  TYPE"
  47. 530  PRINT T70$;: HTAB 30: PRINT "FLEX TYPE"
  48. 540  CALL 16384
  49. 550  PRINT T40$;: VTAB 17: HTAB 7
  50. 560  PRINT "Hi-Res Character Generator"
  51. 570  HTAB 10: PRINT "By  Mark S. Simonsen"
  52. 580  INVERSE : PRINT 
  53. 590  HTAB 6: PRINT " FOR A DEMONSTRATION, TYPE: ": HTAB 10: PRINT " RUN FLEX TYPE DEMO ": PRINT 
  54. 600  HPLOT 5 *7,19 *8 -1 TO 33 *7 -1,19 *8 -1
  55. 610  REM *****************************************************
  56. 620  NORMAL : PRINT T70$;: VTAB 23: END 
  57. 630  DATA 173,0,224,72,173,237,3,201,1,208,14,173,3,141,201,76,208,5,169,127,141,0,141,104,96,201,2,208,31,44,139,192,44,139,192,173,3,208,201,76,208,5,169,127,141,0,208
  58. 640  DATA 104,44,129,192,205,0,224,240,3,44,128,192,96,201,3,208,23,44,139,192,44,139,192,173,3,208,201,76,208,5,169,127,141,0,208,104,44,129,192,96,104,96